Internet.Works 39/Issue 39.iso/pc/MacUtilities/00023_Tool2.ls

Text File | 2000-10-18 | 663 b | 29 lines

on mouseWithin
  if sprite(the currentSpriteNum).foreColor = 70 then
    sprite(the currentSpriteNum).foreColor = 70
    put EMPTY into member "Infofield"
  else
    if member("Title2").foreColor <> 70 then
      cursor(280)
      member("Title2").foreColor = 0
      sprite(the currentSpriteNum).foreColor = 255
    end if
  end if
end

on mouseLeave
  cursor(0)
  if sprite(the currentSpriteNum).foreColor = 70 then
    sprite(the currentSpriteNum).foreColor = 70
  else
    if member("Title2").foreColor <> 70 then
      member("Title2").foreColor = 255
      sprite(the currentSpriteNum).foreColor = 246
    end if
  end if
end

on mouseUp
  go("Title2")
end